home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / UCRASM25.ARJ / STRCMPL.ASM < prev    next >
Assembly Source File  |  1991-10-12  |  2KB  |  110 lines
  1. StdGrp        group    stdlib,stddata
  2. stddata        segment    para public 'sldata'
  3. stddata        ends
  4. ;
  5. stdlib        segment    para public 'slcode'
  6.         assume    cs:stdgrp
  7. ;
  8. ;
  9. ; strcmpl- Compares the string pointed at by es:si to the string following
  10. ;       the call instruction.
  11. ;
  12. ; inputs:
  13. ;
  14. ;    es:di-    First string (The string to compare)
  15. ;    cs:rtn-    Second string (The string to compare against)
  16. ;
  17. ;    e.g.,
  18. ;        "if (es:si < cs:rtn) then ..."
  19. ;
  20. ; returns: 
  21. ;
  22. ;    cx- index into strings where they differ (points at the zero byte
  23. ;        if the two strings are equal).
  24. ; 
  25. ;    Condition codes set according to the string comparison.  You should
  26. ;    use the unsigned branches (ja, jb, je, etc.) after calling this
  27. ;    routine.
  28. ;
  29.         public    sl_strcmpl
  30. ;
  31. sl_strcmpl    proc    far
  32.         push    bp
  33.         mov    bp, sp
  34.         push    es
  35.         push    ds
  36.         push    cx
  37.         push    si
  38.         push    di
  39.         mov    ax, es
  40.         mov    ds, ax
  41.         mov    si, di
  42.         les    di, 2[bp]
  43. ;
  44. ; In order to preserve the direction flag across this call, we have to
  45. ; test whether or not it is set here and execute two completely separate
  46. ; pieces of code (so we know which state to exit in.  Unfortunately, we
  47. ; cannot use pushf to preserve this flag since we need to return status
  48. ; info in the other flags.
  49. ;
  50.         pushf
  51.         pop    ax
  52.         test    ah, 4        ;Test direction bit.
  53.         jnz    DirIsSet
  54. ;
  55. ; Compute the length of the string following the CALL instruction:
  56. ;
  57.         cld
  58.         mov    al, 0
  59.         mov    cx, 0ffffh
  60.     repne    scasb
  61.         xchg    di, 2[bp]    ;Save as new return address.
  62.         neg    cx
  63.         dec    cx        ;Length of string.
  64.         mov    ax, cx
  65.         repe    cmpsb            ;Compare the two strings.
  66. ;
  67.         pushf
  68.         sub    ax, cx
  69.         dec    ax
  70.                 popf
  71.         pop    di
  72.         pop    si
  73.         pop    cx
  74.         pop    ds
  75.         pop    es
  76.         pop    bp
  77.         ret            ;Return with direction flag clear.
  78. ;
  79. ;
  80. DirIsSet:    cld
  81.         mov    al, 0
  82.         mov    cx, 0ffffh
  83.     repne    scasb
  84.         xchg    di, 2[bp]    ;Save as new return address.
  85.         neg    cx
  86.         dec    cx        ;Length of string.
  87.         mov    ax, cx
  88.         repe    cmpsb            ;Compare the two strings.
  89. ;
  90.         pushf
  91.         sub    ax, cx
  92.         dec    ax
  93.         popf
  94.         pop    di
  95.         pop    si
  96.         pop    cx
  97.         pop    ds
  98.         pop    es
  99.         pop    bp
  100.         std
  101.         ret            ;Return with direction flag set.
  102. ;
  103. ;
  104. ;
  105. sl_strcmpl    endp
  106. ;
  107. ;
  108. stdlib        ends
  109.         end
  110.